home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 04 - 05 - 06 (1990)(MindCraft Publishing)[no boot].zip / Nibble Volume 11, No. 04 - 05 - 06 (1990)(MindCraft Publishing)[no boot].po / NIBBLE.1990:APR.VOL11.NO04 / UC.LEAD.bas < prev   
BASIC Source File  |  1996-12-24  |  219b  |  1 lines
  1. 10  INPUT "ENTER STRING: ";A$:L =  LEN(A$):C$ = "": FOR I = 1 TO L:C =  ASC( MID$ (A$,I,1)):B =  ASC( MID$ (A$,I -1 *(I >1),1)):B = 0 +1 *(B = 32  OR I = 1):C$ = C$ + CHR$(C -32 *(C >96  AND C <123) *B): NEXT : PRINT C$